supplied-by : 2nip ( xd1 xd2 -- xd2 )  2swap 2drop ;
